Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/polygo/polypara.frm

Visual Basic Form | 1995-05-07 | 11.5 KB | 389 lines

VERSION 2.00
Begin Form PolyParam
   Caption         =   "PolyGone Options"
   ClientHeight    =   4110
   ClientLeft      =   5340
   ClientTop       =   2910
   ClientWidth     =   4080
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Arial"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   4800
   Left            =   5280
   LinkTopic       =   "Form1"
   ScaleHeight     =   4110
   ScaleWidth      =   4080
   Top             =   2280
   Width           =   4200
   Begin CommandButton cmdDefaults
      Caption         =   "Defaults"
      Height          =   375
      Left            =   2160
      TabIndex        =   24
      Top             =   3360
      Width           =   855
   End
   Begin CommandButton cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   3240
      TabIndex        =   16
      Top             =   3360
      Width           =   735
   End
   Begin Frame fraDraw
      Caption         =   "Draw Options"
      Height          =   2775
      Left            =   2160
      TabIndex        =   11
      Top             =   120
      Width           =   1815
      Begin TextBox txtThick
         Height          =   285
         Left            =   360
         MaxLength       =   2
         TabIndex        =   18
         Text            =   "0"
         Top             =   1920
         Width           =   375
      End
      Begin CheckBox chkInOrder
         Caption         =   "Draw In-Order"
         Height          =   375
         Left            =   120
         TabIndex        =   17
         Top             =   2280
         Width           =   1575
      End
      Begin TextBox txtDrawSpeed
         Height          =   285
         Left            =   120
         MaxLength       =   5
         TabIndex        =   13
         Text            =   "0"
         Top             =   1200
         Width           =   735
      End
      Begin TextBox txtDrawDelay
         Height          =   285
         Left            =   120
         MaxLength       =   5
         TabIndex        =   12
         Text            =   "0"
         Top             =   600
         Width           =   735
      End
      Begin Label lblDrawOpt
         BackStyle       =   0  'Transparent
         Caption         =   "and less"
         Height          =   255
         Index           =   3
         Left            =   840
         TabIndex        =   22
         Top             =   1920
         Width           =   855
      End
      Begin Label lblDrawOpt
         BackStyle       =   0  'Transparent
         Caption         =   "Thick lines, order"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   19
         Top             =   1680
         Width           =   1575
      End
      Begin Label lblDrawOpt
         BackStyle       =   0  'Transparent
         Caption         =   "Line Delay"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   15
         Top             =   960
         Width           =   975
      End
      Begin Label lblDrawOpt
         BackStyle       =   0  'Transparent
         Caption         =   "Polygon Delay"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   14
         Top             =   360
         Width           =   1335
      End
   End
   Begin Frame fraErase
      Caption         =   "Erase Options"
      Height          =   3855
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1815
      Begin CheckBox chkErase
         Caption         =   "Sweep"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   23
         Top             =   2040
         Width           =   1290
      End
      Begin CheckBox chkSparkle
         Caption         =   "Flashes"
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   3480
         Value           =   1  'Checked
         Width           =   1455
      End
      Begin CheckBox chkErase
         Caption         =   "Zigzag"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   20
         Top             =   1800
         Value           =   1  'Checked
         Width           =   1290
      End
      Begin TextBox txtEraseDur
         Height          =   285
         Index           =   1
         Left            =   1200
         MaxLength       =   2
         TabIndex        =   10
         Text            =   "25"
         Top             =   3000
         Width           =   495
      End
      Begin TextBox txtEraseDur
         Height          =   285
         Index           =   0
         Left            =   1200
         MaxLength       =   2
         TabIndex        =   7
         Text            =   "10"
         Top             =   2640
         Width           =   495
      End
      Begin CheckBox chkErase
         Caption         =   "Spiral In"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   6
         Top             =   1560
         Value           =   1  'Checked
         Width           =   1290
      End
      Begin CheckBox chkErase
         Caption         =   "Spiral Out"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   5
         Top             =   1320
         Value           =   1  'Checked
         Width           =   1290
      End
      Begin CheckBox chkErase
         Caption         =   "V Snake"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   4
         Top             =   1080
         Value           =   1  'Checked
         Width           =   1290
      End
      Begin CheckBox chkErase
         Caption         =   "H Snake"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   3
         Top             =   840
         Value           =   1  'Checked
         Width           =   1290
      End
      Begin CheckBox chkErase
         Caption         =   "Random"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   2
         Top             =   600
         Value           =   1  'Checked
         Width           =   1290
      End
      Begin CheckBox chkErase
         Caption         =   "Snap"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   1290
      End
      Begin Line Line1
         BorderWidth     =   2
         Index           =   0
         X1              =   0
         X2              =   1800
         Y1              =   3360
         Y2              =   3360
      End
      Begin Line Line1
         BorderWidth     =   2
         Index           =   1
         X1              =   0
         X2              =   1800
         Y1              =   2520
         Y2              =   2520
      End
      Begin Label lblEraseDur
         Caption         =   "Force after"
         Height          =   285
         Index           =   1
         Left            =   120
         TabIndex        =   9
         Top             =   3000
         Width           =   975
      End
      Begin Label lblEraseDur
         Caption         =   "Allow after"
         Height          =   285
         Index           =   0
         Left            =   120
         TabIndex        =   8
         Top             =   2640
         Width           =   975
      End
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFileLoad
         Caption         =   "&Load .INI"
      End
      Begin Menu mnuFileSave
         Caption         =   "&Save .INI"
      End
      Begin Menu mnuFileAbout
         Caption         =   "&About"
      End
      Begin Menu mnuFileExit
         Caption         =   "E&xit"
      End
   End
   DefInt A-Z
   Option Explicit
Sub chkErase_Click (index As Integer)
   EraseOptions(index) = (chkErase(index).Value <> 0)
End Sub
Sub chkInOrder_Click ()
   DrawInOrder = -(chkInOrder.Value)
   EraseInit = True
End Sub
Sub chkSparkle_Click ()
   Sparkles = -(chkSparkle.Value)   ' 0 or -1
End Sub
Sub cmdDefaults_Click ()
   DrawDelay = 0        ' wait between polygons
   DrawSpeed = 0        ' wait between lines
   ThickOrder = 6       ' polygon order below which
                        '  lines are thickened
   DrawInOrder = False  ' True to draw CCW always
   Sparkles = True      ' True for leading white eraser
   EraseMinInterval = 12 ' minimum polygons before erase
   EraseMaxInterval = 25 ' maximum    ""       "     "
   EraseOptions(0) = 0  ' snap to black
   EraseOptions(1) = 1  ' random tiles
   EraseOptions(2) = 1  ' H-Snake
   EraseOptions(3) = 1  ' V-Snake
   EraseOptions(4) = 1  ' Spiral out
   EraseOptions(5) = 1  ' Spiral in
   EraseOptions(6) = 1  ' Zigzag walk
   EraseOptions(7) = 0  ' Sweeping polygon
   PolyForm.WindowState = 0
   PolyForm.Top = 150
   PolyForm.Left = 150
   PolyForm.Height = 2250
   PolyForm.Width = 2640
   FillBoxes
End Sub
Sub cmdOK_Click ()
   DoEvents
   DoEvents
   Unload Me
End Sub
Sub FillBoxes ()
   Dim k As Integer
   For k = 0 To UBound(EraseOptions)
      chkErase(k).Value = -(EraseOptions(k) <> 0)
   Next
   txtDrawDelay.Text = DrawDelay
   txtDrawSpeed.Text = DrawSpeed
   txtEraseDur(0).Text = EraseMinInterval
   txtEraseDur(1).Text = EraseMaxInterval
   txtThick.Text = ThickOrder
   chkInOrder.Value = -(DrawInOrder)
   chkSparkle.Value = -(Sparkles <> 0)
End Sub
Sub Form_Activate ()
   FillBoxes
End Sub
Sub mnuFileAbout_Click ()
   PolyAbout.Show 1
End Sub
Sub mnuFileExit_Click ()
   End
End Sub
Sub mnuFileLoad_Click ()
   LoadINI
   FillBoxes
End Sub
Sub mnuFileSave_Click ()
   SaveINI
End Sub
Sub txtDrawDelay_GotFocus ()
   txtDrawDelay.SelStart = 0
   txtDrawDelay.SelLength = 99
End Sub
Sub txtDrawDelay_LostFocus ()
    DrawDelay = txtDrawDelay.Text
End Sub
Sub txtDrawSpeed_GotFocus ()
   txtDrawSpeed.SelStart = 0
   txtDrawSpeed.SelLength = 99
End Sub
Sub txtDrawSpeed_LostFocus ()
    DrawSpeed = txtDrawSpeed.Text
End Sub
Sub txtEraseDur_GotFocus (index As Integer)
   txtEraseDur(index).SelStart = 0
   txtEraseDur(index).SelLength = 2
End Sub
Sub txtEraseDur_LostFocus (index As Integer)
   Dim k As Integer
   k = CInt(txtEraseDur(index).Text)
   If index = 0 Then
      EraseMinInterval = k
   Else
      EraseMaxInterval = k
   End If
End Sub
Sub txtThick_GotFocus ()
   txtThick.SelStart = 0
   txtThick.SelLength = 99
End Sub
Sub txtThick_LostFocus ()
   ThickOrder = txtThick.Text
End Sub